home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / IBM.ONE-LINER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  339b  |  4 lines
  1. 10  REM  TOM MCDONALD
  2. 15  REM  2/22/83
  3. 20  REM 
  4. 100  HGR2 : FOR A = 0 TO 1  STEP 0:SO =  -16336: HCOLOR=  RND(1) *6 +1 -1 *( RND(0) = 4): FOR I = 0 TO 200  STEP  INT( RND(1) *3 +3): HPLOT 0,0 TO I,191: HPLOT 0,191 TO I,0: HPLOT 279,0 TO 279 -I,191: HPLOT 279,191 TO 279 -I,0: NEXT I: FOR S = 1 TO 5:Z =  PEEK(SO) - PEEK(SO): NEXT S: NEXT A